home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / ss / anlytc_1.zip / CPR.CMD < prev    next >
OS/2 REXX Batch file  |  1985-09-25  |  833b  |  36 lines
  1. RM
  2. TE I=C=D=E=0.0\*C
  3. %4H      %*%%                           
  4. *C CELL TO REGION OF WHICH IT'S UPPER LEFT CORNER
  5. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  6. TE *U HERE                                   
  7. TE T-1.\R=%
  8. TE U-2.\S=%
  9. %qGive Start Cell of Row>%L %\
  10. TE *U HERE
  11. TE T-1.\B=%
  12. TE U-2.\C=%
  13. %Give End Cell of Row>%L %\
  14. TE *U HERE
  15. TE T-1.\D=%
  16. TE U-2.\E=%
  17. %Give Bottom Left of Left Column>%L %\
  18. TE *U HERE
  19. TE T-1.\F=%
  20. TE U-2.\G=%
  21. L A1
  22. TE G-C+1.\H=%
  23. TE B+1.\I=%
  24. TE C+1.\J=%         
  25. CR P#%BC P#%BJ:P#%FG 
  26. CA A1 A0 
  27. EV P##
  28. DF A1 [*] 
  29. EV *U XQTCM CR P#%BC P#%IC:P#%DE \C=C+1.\E=E+1.\H=H-1.\< 
  30. R                                                       
  31. CA A0 A1                                                
  32. *C EXIT.
  33. L A1
  34. L P#%RS                                                   
  35.  
  36.